home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 3: The Continuation / 17-Bit_The_Continuation_Disc.iso / amigan / amigan 8 / hack.end.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-01-27  |  13.9 KB  |  534 lines
  1. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  2. /* hack.end.c version 1.0.1 - added "escaped with amulet" */
  3.  
  4. #include "hack.h"
  5. #include <stdio.h>
  6. #include <fcntl.h>
  7. #include <signal.h>
  8. #define   Sprintf   (void) sprintf
  9. extern char plname[], pl_character[];
  10. extern char *itoa(), *ordin(), *eos(), *getlogin();
  11.  
  12. extern char *index(); /* M.E.T. 11/20/85 */
  13.  
  14. xchar maxdlevel = 1;
  15.  
  16. done1()
  17. {
  18.    (void) signal(SIGINT,SIG_IGN);
  19.    pline("Really quit?");
  20.    if(readchar() != 'y')
  21.       {
  22.       (void) signal(SIGINT,done1);
  23.       clrlin();
  24.       (void) myfflush(stdout);
  25.       if(multi > 0) nomul(0);
  26.       return(0);
  27.       }
  28.    done("quit");
  29.    /* NOTREACHED */
  30. }
  31.  
  32. int done_stopprint;
  33.  
  34. done_intr(){
  35.    done_stopprint++;
  36.    (void) signal(SIGINT,SIG_IGN);
  37. }
  38.  
  39. done_in_by(mtmp) register struct monst *mtmp; {
  40. static char buf[BUFSZ];
  41.    pline("You die ...");
  42.    if(mtmp->data->mlet == ' ')
  43.       {
  44.       Sprintf(buf, "the ghost of %s", (char *) mtmp->mextra);
  45.       killer = buf;
  46.       }
  47.    else if(mtmp->mnamelth)
  48.       {
  49.       Sprintf(buf, "%s called %s", mtmp->data->mname, NAME(mtmp));
  50.       killer = buf;
  51.       }
  52.    else if(mtmp->minvis)
  53.       {
  54.       Sprintf(buf, "invisible %s", mtmp->data->mname);
  55.       killer = buf;
  56.       }
  57.    else
  58.       killer = mtmp->data->mname;
  59.    done("died");
  60. }
  61.  
  62. /* called with arg "died", "escaped", "quit", "choked", "panic"
  63.    or "starved" */
  64. /* Be careful not to call panic from here! */
  65. done(st1)
  66. register char *st1;
  67. {
  68.  
  69. #ifdef WIZARD
  70.    if(wizard && *st1 == 'd'){
  71.       u.ustr = u.ustrmax += 2;
  72.       u.uhp = u.uhpmax += 10;
  73.       if(uarm) uarm->spe++;
  74.       if(uwep) uwep->spe++; /* NB: uwep need not be a weapon! */
  75.       u.uswldtim = 0;
  76.       pline("For some reason you are still alive.");
  77.       flags.move = 0;
  78.       if(multi > 0) multi = 0; else multi = -1;
  79.       flags.botl = 1;
  80.       return;
  81.    }
  82. #endif WIZARD
  83.    (void) signal(SIGINT, done_intr);
  84.    if(*st1 == 'q' && u.uhp < 1)
  85.       {
  86.       st1 = "died";
  87.       killer = "quit while already on Charon's boat";
  88.       }
  89.    if(*st1 == 's')
  90.       killer = "starvation";
  91.    paybill();
  92.    clearlocks();
  93.    if(index("cds", *st1))
  94.         {
  95.         savebones();
  96.         if(!flags.notombstone)
  97.             outrip();
  98.         else
  99.             more();
  100.         }
  101.    myprintf("Contents of your pack when you died:\n");
  102.    myddoinv();
  103.    settty((char *) 0);   /* does a cls() */
  104.    if(!done_stopprint)
  105.       myprintf("Goodbye %s %s...\n\n", pl_character, plname);
  106.    {
  107.       long int tmp;
  108.       tmp = u.ugold - u.ugold0;
  109.       if(tmp < 0) tmp = 0;
  110.       if(*st1 == 'd')
  111.          tmp -= tmp/10;
  112.       else
  113.          killer = st1;
  114.       u.urexp += tmp;
  115.    }
  116.    if(*st1 == 'e')
  117.       {
  118.       extern struct monst *mydogs;
  119.       register struct monst *mtmp = mydogs;
  120.       register struct obj *otmp;
  121.       register int i;
  122.       register unsigned worthlessct = 0;
  123.  
  124.         killer = st1;
  125.     u.urexp += 50 * maxdlevel;
  126.       if(mtmp)
  127.          {
  128.          if(!done_stopprint) myprintf("You");
  129.          while(mtmp)
  130.             {
  131.             if(!done_stopprint)
  132.                myprintf(" and %s", monnam(mtmp));
  133.             u.urexp += mtmp->mhp;
  134.             mtmp = mtmp->nmon;
  135.             }
  136.          if(!done_stopprint)
  137.           myprintf("\nescaped from the dungeon with %lu points,\n",
  138.          u.urexp);
  139.          }
  140.       else if(!done_stopprint)
  141.         myprintf("You escaped from the dungeon with %lu points,\n",
  142.           u.urexp);
  143.       for(otmp = invent; otmp; otmp = otmp->nobj) {
  144.          if(otmp->olet == GEM_SYM){
  145.             objects[otmp->otyp].oc_name_known = 1;
  146.             i = otmp->quan*objects[otmp->otyp].g_val;
  147.             if(i == 0) {
  148.                worthlessct += otmp->quan;
  149.                continue;
  150.             }
  151.             u.urexp += i;
  152.             if(!done_stopprint)
  153.               myprintf("\t%s (worth %d Zorkmids),\n",
  154.                 doname(otmp), i);
  155.          } else if(otmp->olet == AMULET_SYM) {
  156.             otmp->known = 1;
  157.             i = (otmp->spe < 0) ? 2 : 5000;
  158.             u.urexp += i;
  159.             if(!done_stopprint)
  160.               myprintf("\t%s (worth %d Zorkmids),\n",
  161.                 doname(otmp), i);
  162.                 if(otmp->spe >= 0) {
  163.                     u.urexp *= 2;
  164.                     killer = "escaped (with amulet)";
  165.                 }
  166.          }
  167.       }
  168.       if(worthlessct) if(!done_stopprint)
  169.         myprintf("\t%d worthless piece%s of coloured glass,\n",
  170.         worthlessct, plur(worthlessct));
  171.    } else
  172.       if(!done_stopprint)
  173.         myprintf("You %s on dungeon level %d with %lu points,\n",
  174.           st1,dlevel,u.urexp);
  175.    if(!done_stopprint)
  176.      myprintf("and %lu piece%s of gold, after %lu move%s.\n",
  177.        u.ugold, (u.ugold == 1) ? "" : "s",
  178.        moves, (moves == 1) ? "" : "s");
  179.    if(!done_stopprint)
  180.   myprintf("You were level %d with a maximum of %d hit points when you %s.\n",
  181.        u.ulevel, u.uhpmax, st1);
  182.    if(*st1 == 'e'){
  183.       getret();   /* all those pieces of coloured glass ... */
  184.       cls();
  185.    }
  186. #ifdef WIZARD
  187.    if(!wizard)
  188. #endif WIZARD
  189.       topten();
  190.    if(done_stopprint) myprintf("\n\n");
  191.    hackexit(0);
  192. }
  193.  
  194. #define newttentry() (struct toptenentry *) alloc(sizeof(struct toptenentry))
  195. #define   NAMSZ   8
  196. #define   DTHSZ   40
  197. #define   PERSMAX   1
  198. #define   POINTSMIN   1   /* must be > 0 */
  199. #define   ENTRYMAX   100   /* must be >= 10 */
  200. struct toptenentry {
  201.    struct toptenentry *tt_next;
  202.    long int points;
  203.    int level,maxlvl,hp,maxhp;
  204.    char plchar;
  205.    char str[NAMSZ+1];
  206.    char death[DTHSZ+1];
  207. } *tt_head;
  208.  
  209. topten(){
  210.    int rank, rank0 = -1, rank1 = 0;
  211.    int occ_cnt = PERSMAX;
  212.    register struct toptenentry *t0, *t1, *tprev;
  213.    char *recfile = "record";
  214.    int  rfile;
  215.    register int flg = 0;
  216.  
  217.    if((rfile = open(recfile,O_RDONLY)) < 0)
  218.       {
  219.       myputs("Cannot open record file!");
  220.       return;
  221.       }
  222.    (void) myputchar('\n');
  223.  
  224.    /* create a new 'topten' entry */
  225.    t0 = newttentry();
  226.    t0->level = dlevel;
  227.    t0->maxlvl = maxdlevel;
  228.    t0->hp = u.uhp;
  229.    t0->maxhp = u.uhpmax;
  230.    t0->points = u.urexp;
  231.    t0->plchar = pl_character[0];
  232.    (void) strncpy(t0->str, plname, NAMSZ);
  233.    (t0->str)[NAMSZ] = 0;
  234.    (void) strncpy(t0->death, killer, DTHSZ);
  235.    (t0->death)[DTHSZ] = 0;
  236.  
  237.    /* assure minimum number of points */
  238.    if(t0->points < POINTSMIN)
  239.       t0->points = 0;
  240.  
  241.    t1 = tt_head = newttentry();
  242.    tprev = 0;
  243.    /* rank0: -1 undefined, 0 not_on_list, n n_th on list */
  244.    for(rank = 1; ; ) {
  245.      if (read(rfile, t1, sizeof(struct toptenentry)) !=
  246.            sizeof(struct toptenentry) || (t1->points < POINTSMIN))
  247.         t1->points = 0;
  248.  
  249.      if(rank0 < 0 && t1->points < t0->points) {
  250.       rank0 = rank++;
  251.       if(tprev == 0)
  252.          tt_head = t0;
  253.       else
  254.          tprev->tt_next = t0;
  255.       t0->tt_next = t1;
  256.       occ_cnt--;
  257.       flg++;      /* ask for a rewrite */
  258.      } else
  259.       tprev = t1;
  260.      if(t1->points == 0) break;
  261.      if(strncmp(t1->str, t0->str, NAMSZ) == 0 &&
  262.         t1->plchar == t0->plchar && --occ_cnt <= 0){
  263.       if(rank0 < 0){
  264.          rank0 = 0;
  265.          rank1 = rank;
  266.    myprintf("You didn't beat your previous score of %ld points.\n\n",
  267.             t1->points);
  268.       }
  269.       if(occ_cnt < 0){
  270.          flg++;
  271.          continue;
  272.       }
  273.      }
  274.      if(rank <= ENTRYMAX){
  275.         t1 = t1->tt_next = newttentry();
  276.         rank++;
  277.      }
  278.      if(rank > ENTRYMAX){
  279.       t1->points = 0;
  280.       break;
  281.      }
  282.    }
  283.    if(flg) {   /* rewrite record file */
  284.       (void) close(rfile);
  285.       if((rfile=open(recfile,O_WRONLY)) < 0)
  286.          {
  287.          myputs("Cannot write record file\n");
  288.          return;
  289.          }
  290.  
  291.       if(!done_stopprint) if(rank0 > 0){
  292.           if(rank0 <= 10)
  293.          myputs("You made the top ten list!\n");
  294.           else
  295.       myprintf("You reached the %d%s place on the top %d list.\n\n",
  296.          rank0, ordin(rank0), ENTRYMAX);
  297.       }
  298.    }
  299.    if(rank0 == 0) rank0 = rank1;
  300.    if(rank0 <= 0) rank0 = rank;
  301.    if(!done_stopprint) outheader();
  302.    t1 = tt_head;
  303.    for(rank = 1; t1->points != 0; rank++, t1 = t1->tt_next) {
  304.      if(flg) write(rfile, t1, sizeof(struct toptenentry));
  305.      if(done_stopprint) continue;
  306.       if(rank > flags.end_top &&
  307.         (rank < rank0-flags.end_around || rank > rank0+flags.end_around)
  308.         && (!flags.end_own || strncmp(t1->str, t0->str, NAMSZ)))
  309.           continue;
  310.       if(rank == rank0-flags.end_around &&
  311.          rank0 > flags.end_top+flags.end_around+1 &&
  312.          !flags.end_own)
  313.         (void) putchar('\n');
  314.      if(rank != rank0)
  315.       (void) outentry(rank, t1, 0);
  316.      else if(!rank1)
  317.       (void) outentry(rank, t1, 1);
  318.      else {
  319.       int t0lth = outentry(0, t0, -1);
  320.       int t1lth = outentry(rank, t1, t0lth);
  321.       if(t1lth > t0lth) t0lth = t1lth;
  322.       (void) outentry(0, t0, t0lth);
  323.      }
  324.    }
  325.    if(rank0 >= rank)
  326.       (void) outentry(0, t0, 1);
  327.    (void) close(rfile);
  328.  
  329. /* 12nov85 djw */
  330.    getret();
  331. }
  332.  
  333. outheader() {
  334. char linebuf[BUFSZ];
  335. register char *bp;
  336.    (void) strcpy(linebuf, "Number Points  Name");
  337.    bp = eos(linebuf);
  338.    while(bp < linebuf + COLNO - 9) *bp++ = ' ';
  339.    (void) strcpy(bp, "Hp [max]");
  340.    myputs(linebuf);
  341. }
  342.  
  343. /* so>0: standout line; so=0: ordinary line; so<0: no output, return lth */
  344. int
  345. outentry(rank,t1,so) register struct toptenentry *t1; {
  346. boolean quit = FALSE, killed = FALSE, starv = FALSE;
  347. char linebuf[BUFSZ];
  348.    linebuf[0] = 0;
  349.    if(rank) Sprintf(eos(linebuf), "%3d", rank);
  350.       else Sprintf(eos(linebuf), "   ");
  351.    Sprintf(eos(linebuf), " %6ld %8s", t1->points, t1->str);
  352.    if(t1->plchar == 'X') Sprintf(eos(linebuf), " ");
  353.    else Sprintf(eos(linebuf), "-%c ", t1->plchar);
  354.     if(!strncmp("escaped", t1->death, 7)) {
  355.       if(!strcmp(" (with amulet)", t1->death+7))
  356.         Sprintf(eos(linebuf), "escaped the dungeon with amulet");
  357.       else
  358.         Sprintf(eos(linebuf), "escaped the dungeon [max level %d]",
  359.           t1->maxlvl);
  360.     } else {
  361.      if(!strncmp(t1->death,"quit",4))
  362.        Sprintf(eos(linebuf), "quit"), quit = TRUE;
  363.      else if(!strcmp(t1->death,"choked"))
  364.        Sprintf(eos(linebuf), "choked in his food");
  365.      else if(!strncmp(t1->death,"starv",5))
  366.        Sprintf(eos(linebuf), "starved to death"), starv = TRUE;
  367.      else Sprintf(eos(linebuf), "was killed"), killed = TRUE;
  368.      Sprintf(eos(linebuf), " on%s level %d",
  369.        (killed || starv) ? "" : " dungeon", t1->level);
  370.      if(t1->maxlvl != t1->level)
  371.        Sprintf(eos(linebuf), " [max %d]", t1->maxlvl);
  372.      if(quit && t1->death[4]) Sprintf(eos(linebuf), t1->death + 4);
  373.    }
  374.    if(killed) Sprintf(eos(linebuf), " by %s%s",
  375.      !strncmp(t1->death, "the ", 4) ? "" :
  376.      index(vowels,*t1->death) ? "an " : "a ",
  377.      t1->death);
  378.    Sprintf(eos(linebuf), ".");
  379.    if(t1->maxhp) {
  380.      register char *bp = eos(linebuf);
  381.      char hpbuf[10];
  382.      int hppos;
  383.      Sprintf(hpbuf, (t1->hp > 0) ? itoa(t1->hp) : "-");
  384.      hppos = COLNO - 7 - strlen(hpbuf);
  385.      if(bp <= linebuf + hppos) {
  386.        while(bp < linebuf + hppos) *bp++ = ' ';
  387.        (void) strcpy(bp, hpbuf);
  388.        Sprintf(eos(bp), " [%d]", t1->maxhp);
  389.      }
  390.    }
  391.    if(so == 0) myputs(linebuf);
  392.    else if(so > 0) {
  393.      register char *bp = eos(linebuf);
  394.      if(so >= COLNO) so = COLNO-1;
  395.      while(bp < linebuf + so) *bp++ = ' ';
  396.      *bp = 0;
  397.      standoutbeg();
  398.      myputs(linebuf);
  399.      standoutend();
  400.      (void) myputchar('\n');
  401.    }
  402.    return(strlen(linebuf));
  403. }
  404.  
  405. char *
  406. itoa(a) int a; {
  407. static char buf[12];
  408.    Sprintf(buf,"%d",a);
  409.    return(buf);
  410. }
  411.  
  412. char *
  413. ordin(n) int n; {
  414. register int d = n%10;
  415.    return((d==0 || d>3 || n/10==1) ? "th" : (d==1) ? "st" :
  416.       (d==2) ? "nd" : "rd");
  417. }
  418.  
  419. clearlocks(){
  420. register int x;
  421.    (void) signal(SIGHUP,SIG_IGN);
  422.    for(x = 1; x <= maxdlevel; x++) {
  423.       glo(x);
  424.       (void) unlink(lock);   /* not all levels need be present */
  425.    }
  426.    *index(lock,'.') = 0;
  427.    (void) unlink(lock);
  428. }
  429.  
  430. #ifdef NOSAVEONHANGUP
  431. hangup(){
  432.    (void) signal(SIGINT,SIG_IGN);
  433.    clearlocks();
  434.    hackexit(1);
  435. }
  436. #endif NOSAVEONHANGUP
  437.  
  438. char *
  439. eos(s) register char *s; {
  440.    while(*s) s++;
  441.    return(s);
  442. }
  443.  
  444. /* it is the callers responsibility to check that there is room for c */
  445. charcat(s,c) register char *s, c; {
  446.    while(*s) s++;
  447.    *s++ = c;
  448.    *s = 0;
  449. }
  450.  
  451. prscore(argc,argv) int argc; char **argv; {
  452.    extern char *hname;
  453.    char *player0;
  454.    char **players;
  455.    int playerct;
  456.    int rank;
  457.    register struct toptenentry *t1;
  458.    char *recfile = "record";
  459.    int  rfile;
  460.    register int flg = 0;
  461.    register int i;
  462.  
  463.    if((rfile = open(recfile,O_RDONLY)) < 0)
  464.       {
  465.       myputs("Cannot open record file!");
  466.       return;
  467.       }
  468.  
  469.    if(argc > 1 && !strncmp(argv[1], "-s", 2)){
  470.       if(!argv[1][2]){
  471.          argc--;
  472.          argv++;
  473.       } else if(!argv[1][3] && index("CFKSTWX", argv[1][2])) {
  474.          argv[1]++;
  475.          argv[1][0] = '-';
  476.       } else   argv[1] += 2;
  477.    }
  478.    if(argc <= 1){
  479.       player0 = getlogin();
  480.       if(!player0) player0 = "player";
  481.       playerct = 1;
  482.       players = &player0;
  483.    } else {
  484.       playerct = --argc;
  485.       players = ++argv;
  486.    }
  487.    myputchar('\n');
  488.  
  489.    t1 = tt_head = newttentry();
  490.    for(rank = 1; ; rank++) {
  491.      if (read(rfile, t1, sizeof(struct toptenentry)) !=
  492.            sizeof(struct toptenentry))
  493.         t1->points = 0;
  494.      if(t1->points == 0) break;
  495.      for(i = 0; i < playerct; i++){
  496.       if(strcmp(players[i], "all") == 0 ||
  497.          strncmp(t1->str, players[i], NAMSZ) == 0 ||
  498.         (players[i][0] == '-' &&
  499.          players[i][1] == t1->plchar &&
  500.          players[i][2] == 0) ||
  501.         (digit(players[i][0]) && rank <= atoi(players[i])))
  502.          flg++;
  503.      }
  504.      t1 = t1->tt_next = newttentry();
  505.    }
  506.    (void) close(rfile);
  507.    if(!flg) {
  508.       myprintf("Cannot find any entries for ");
  509.       if(playerct > 1) myprintf("any of ");
  510.       for(i=0; i<playerct; i++)
  511.          myprintf("%s%s", players[i], (i<playerct-1)?", ":".\n");
  512.       myprintf("Call is: %s -s [playernames]\n", hname);
  513.       return;
  514.    }
  515.  
  516.    outheader();
  517.    t1 = tt_head;
  518.    for(rank = 1; t1->points != 0; rank++, t1 = t1->tt_next) {
  519.       for(i = 0; i < playerct; i++){
  520.          if(strcmp(players[i], "all") == 0 ||
  521.             strncmp(t1->str, players[i], NAMSZ) == 0 ||
  522.            (players[i][0] == '-' &&
  523.             players[i][1] == t1->plchar &&
  524.             players[i][2] == 0) ||
  525.            (digit(players[i][0]) && rank <= atoi(players[i])))
  526.             goto out;
  527.       }
  528.       continue;
  529.    out:
  530.      (void) outentry(rank, t1, 0);
  531.    }
  532. }
  533.  
  534.